home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Convert / Vectors / vector-to-timesheet
Encoding:
Text File  |  1998-10-23  |  1.4 KB  |  42 lines  |  [TEXT/ScoM]
  1. vector-to-timesheet rows length &rest vectors
  2.  
  3. Prints the output of vectors onto strings of given length and number of rows. The output can be pasted onto the song source and used as compile-song timesheets or def-rhythm strings. See vector-to-strings.
  4.  
  5. (vector-to-timesheet 8 32 'invert
  6.     (count-distribution 
  7.          (vector-round 0 8 (gen-sin 2 0.5 64))))
  8.  
  9. "    -------------------------   "
  10. "--------------------------------"
  11. "----       -----------       ---"
  12. "--------------------------------"
  13. "--------------------------------"
  14. "--------------------------------"
  15. "--------------------------------"
  16. "-----------           ----------"
  17.  
  18. (vector-to-timesheet 8 64 'normal
  19.    (gen-sin 3 0.5 64)
  20.    (gen-sin 2 0.5 64 30)
  21. )
  22.  
  23. "    ------                ----      ------      --              "
  24. "  --    ----            --        --      --  --  --            "
  25. "----                          ----          --      --          "
  26. "--        ----        --      ----          --                --"
  27. "              --            --            --  --      --    --  "
  28. "            --  --  --            --            --            --"
  29. "              --  --      --            --        --    ----    "
  30. "                --  ------          ----            ----------  "
  31.  
  32. (vector-to-timesheet 4 16 'invert
  33.    (gen-ramp 3 0.5 64 90)
  34.    (gen-sin 2 0.5 64 180) 
  35.    (gen-sin 1 0.5 64 30) 
  36. )
  37.  
  38. "-      - ----  -"
  39. "   -    - -- -  "
  40. " -- -    -- -  -"
  41. "-  - ----    -- "
  42.